home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor2 / textengn.lha / Textengine / TEM / letter.tes < prev    next >
Text File  |  1996-12-23  |  918b  |  60 lines
  1. /* $VER: letter.tes 1.0 (7.10.96) */
  2.  
  3. /* start */
  4.  
  5. options results
  6. parse arg n x y
  7. signal on syntax
  8. myhost=n||" '"||x||"'"
  9. interpret myhost
  10.  
  11. /* main */
  12.  
  13. 'GOTO BYTE=1'
  14. 'REPLACE STRING="<LETTER>" BY="<PREPROCESSEDltr>" NEXT WILD=FALSE'
  15. 'GOTO LINE 2 COLUMN 1'
  16. 'QUERY LEN VAR VARX'
  17. if VARX<50 then do
  18.  'TEXT T="<G>"'
  19.  'SMARTCR'
  20.  'QUERY ANYCHAR'
  21.  if RESULT="TRUE" then do
  22.   'CR'
  23.   'TEXT T="<G>"'
  24.   'GOTO LINE 2 COLUMN 3'
  25.   'DELETE LEFT'
  26.   'TEXT T="<B>"'
  27.   'GOTO EOL'
  28.   'TEXT T="</B><BREAK>"'
  29.   'DOWN'
  30.   'DOWN'
  31.  end
  32.  else 'UP'
  33.  'DOWN'
  34.  'SMARTCR'
  35. end
  36. 'FIRST'
  37. 'TEXT T="<NOI>"'
  38. 'REPLACE STRING="<MFG" BY="<NOI><I>Mit freundlichen Grüßen</I>" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  39. if RC=0 then do
  40.  'QUERY CODE'
  41.  if RESULT=32 then do
  42.   'DEL'
  43.   'TEXT T="<G>"'
  44.   'CR'
  45.   'CR'
  46.   'GOTO EOL'
  47.   'BACK'
  48.   'TEXT T="</G>"'
  49.  end
  50.  else 'DELETE EOL'
  51. end
  52.  
  53. /* end */
  54.  
  55. exit 0
  56.  
  57. syntax:
  58. say "Sorry, error line" SIGL ":" errortext(RC) ":-("
  59. exit 20
  60.